#include <cmath>
#include <iostream>
#include <vector>
#include <queue>
#include <algorithm>
#include <map>
#include <set>
#include <cstring>
#include<iomanip>
#define endl "\n"
using namespace std;
int sh[25],rr=0,k=0;
bool pan[25];
int a[25];
//3+7+12=22
//3+7+19=29
//7+12+19=38
//3+12+19=34
int n,r;
bool sushu(int x)
{
	for(int i=2;i<=sqrt(x);i++)
	{
		if(x%i==0)
		{
			return 0;
		}
	}
	return 1;
}
void dfs(int x,int y)
{

	if(x==r+1)
	{
		int sd=0;
		for(int i=0;i<r;i++)
		{
			sd=sd+sh[i];
		}
		if(sushu(sd))
		{
			k++;
		}
	}	
	for(int i=y;i<n;i++)
	{
		if(pan[i]==0)
		{
			sh[x-1]=a[i];
			pan[i]=1;
			dfs(x+1,i);
			pan[i]=0;
		}
	}
}
int main()
{
	cin>>n>>r;
	for(int i=0;i<n;i++)
	{
		cin>>a[i];
	}
	dfs(1,0);
	cout<<k<<endl;
}